Voorbeeld van de functie MsgBox

Dit voorbeeld maakt gebruik van de functie MsgBox om een bericht voor een kritieke fout weer te geven in een dialoogvenster met een knop Ja en Nee. De knop Nee is opgegeven als de standaardreactie. De waarde die de functie MsgBox als resultaat geeft, is afhankelijk van de knop die u kiest. Dit voorbeeld gaat ervan uit dat DEMO.HLP een Help-bestand is dat een onderwerp bevat met een Help-contextnummer dat gelijk is aan 1000.

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Wilt u doorgaan?"    ' Definieert bericht.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Definieert knoppen.
Title = "Demo MsgBox"    ' Definieert titel.
Help = "DEMO.HLP"    ' Definieert Help-bestand.
Ctxt = 1000    ' Definieert onderwerp
        ' context. 
        ' Geeft bericht weer.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' Gebruiker koos Ja.
    MyString = "Ja"    ' Voert bepaalde handeling uit.
Else    ' Gebruiker koos Nee.
    MyString = "Nee"    ' Voert bepaalde handeling uit.
End If